function cost_grid = fn_cost_app_i_integral(D0i_grid,R1,delta,D0,chi,gam,lambda,y1,y2,phi,s_min,s_max,dist_d,d_min,d_max,s_star,s_hat,dist_s,prob)

cost_grid = zeros(size(D0i_grid));
for i = 1:length(D0i_grid)
    D0i = D0i_grid(i);
    cost_grid(i) = fn_cost_dep_app_i(D0i,R1,delta,D0,chi,gam,lambda,y1,y2,phi,s_min,s_max,dist_d,d_min,d_max,s_star,s_hat,dist_s,prob);
end

end